МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ Національний університет «Львівська політехніка» Кафедра АСУ Звіт до лабораторної роботи №9 з курсу “Об'єктно орієнтоване програмування” Варіант 8  Львів 2010Тема: Створення ужитку з використанням бази даних Мета роботи: навчитись створювати таблиці бази даних за допомогою утиліти Database Desktop, зрозуміти способи доступу до таблиць та особливості роботи з ними у системі програмування Delphi. Порядок роботи: Створити проект для виконання індивідуального завдання. Оформити звіт для захисту лабораторної роботи за зразком назва роботи мета роботи порядок роботи короткі теоретичні відомості алгоритм розв’язку задачі тексти відповідних модулів проекту аналіз отриманих результатів та висновки Завдання Створити таблицю бази даних на задану тему та програму для роботи з нею, яка виконує такі задачі: Перегляд та редагування записів у таблиці, додавання та вилучення. Впорядковування записів за первинним індексом (ключем). Впорядковування записів за вторинним індексом. Пошук записів (точний та неточний, враховуючи та не враховуючи регістр символів). Встановлення фільтрів для записів. Індивідуальне завдання: FM-радіостанції м. Львова. Текст програми: unit FMmain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBTables,DB, Grids, DBGrids, StdCtrls, Buttons, XPMan, ExtCtrls, DBCtrls, Mask, dbcgrids, TeeProcs, TeEngine, Chart, DbChart, ComCtrls, jpeg; type TForm1 = class(TForm) DBGrid: TDBGrid; Table1: TTable; DataSource1: TDataSource; XPManifest1: TXPManifest; GroupBox1: TGroupBox; Edit1: TEdit; ComboBox1: TComboBox; Button3: TButton; CheckBox1: TCheckBox; Button4: TButton; Label1: TLabel; Edit2: TEdit; Edit3: TEdit; CheckBox2: TCheckBox; Label2: TLabel; Label3: TLabel; ComboBox2: TComboBox; GroupBox2: TGroupBox; Edit4: TEdit; ComboBox3: TComboBox; Button7: TButton; CheckBox3: TCheckBox; CheckBox4: TCheckBox; ComboBox4: TComboBox; Label4: TLabel; TabControl1: TTabControl; Image1: TImage; DBNavigator1: TDBNavigator; procedure FormCreate(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject); procedure ComboBox2Change(Sender: TObject); procedure Button7Click(Sender: TObject); procedure ComboBox4Change(Sender: TObject); procedure TabControl1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var S:TStrings; i:integer; begin TabControl1Change(Sender); Table1.TableName:='C:\FMBase.dbf'; Table1.Close; Table1.Open; for i:=0 to Table1.FieldCount-1 do begin //Читаэмо і заносимо в СomboBox-и всі поля таблиці ComboBox1.Items.Add(Table1.Fields.Fields[i].DisplayName); ComboBox2.Items.Add(Table1.Fields.Fields[i].DisplayName); ComboBox3.Items.Add(Table1.Fields.Fields[i].DisplayName); ComboBox4.Items.Add(Table1.Fields.Fields[i].DisplayName); end; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin //Переключення контролу в режим Доступний/Недоступний відповідно до CheckBox-у if Length(ComboBox1.Text)>0 then Button3.Enabled:=true else Button3.Enabled:=False; end; procedure TForm1.ComboBox2Change(Sender: TObject); begin if Length(ComboBox2.Text)>0 then Button3.Enabled:=true else Button3.Enabled:=False; end; //Встановити фільтр procedure TForm1.Button3Click(Sender: TObject); var i:integer; begin // Тільки ті у яких Поле = Edit.Text if CheckBox1.Checked then begin Table1.Filter:=ComboBox1.Text+' = '+Edit1.Text; Table1.Filte...